inherited rstReciepts: TrstReciepts
  Caption = #1056#1077#1077#1089#1090#1088' '#1095#1077#1082#1086#1074
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    inherited TfraAddress1: TfraAddress
      Top = 113
      inherited SearchBox: TGroupBox
        inherited Label6: TLabel
          Left = 27
        end
        inherited Label1: TLabel
          Left = 45
        end
        inherited Label2: TLabel
          Left = 64
        end
        inherited Label3: TLabel
          Left = 73
        end
        inherited Label4: TLabel
          Left = 48
        end
        inherited Label5: TLabel
          Left = 69
        end
        inherited AddBtn: TButton
          Enabled = False
        end
      end
    end
    inherited GroupBox1: TGroupBox
      Height = 113
      object Label6: TLabel
        Left = 45
        Top = 20
        Width = 50
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1044#1072#1090#1072' '#1089
      end
      object Label1: TLabel
        Left = 45
        Top = 44
        Width = 50
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #1044#1072#1090#1072' '#1087#1086
      end
      object Label2: TLabel
        Left = 45
        Top = 68
        Width = 50
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #8470' '#1095#1077#1082#1072
      end
      object dbtBdate: TDBDateTimeEditEh
        Left = 104
        Top = 16
        Width = 146
        Height = 19
        EditButtons = <>
        Flat = True
        Kind = dtkDateEh
        TabOrder = 0
        Visible = True
      end
      object dbtEdate: TDBDateTimeEditEh
        Left = 104
        Top = 40
        Width = 146
        Height = 19
        EditButtons = <>
        Flat = True
        Kind = dtkDateEh
        TabOrder = 1
        Visible = True
      end
      object cbSelfOnly: TDBCheckBoxEh
        Left = 104
        Top = 88
        Width = 97
        Height = 17
        AlwaysShowBorder = True
        BiDiMode = bdLeftToRight
        Caption = #1058#1086#1083#1100#1082#1086' '#1084#1086#1080
        Flat = True
        ParentBiDiMode = False
        TabOrder = 2
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object dbeReciept: TDBEditEh
        Left = 104
        Top = 64
        Width = 146
        Height = 19
        AlwaysShowBorder = True
        EditButtons = <>
        Flat = True
        TabOrder = 3
        Visible = True
      end
    end
    inherited TfraSubstanceInfo1: TfraSubstanceInfo
      Top = 314
      Height = 255
      inherited TopPanel: TPanel
        Height = 0
      end
      inherited BottomPanel: TPanel
        Top = 255
        Height = 0
      end
      inherited PageControl: TPageControl
        Top = 0
        Height = 255
        Enabled = False
        Visible = False
        inherited TSInfo: TTabSheet
          inherited InfoGrid: TDBGridEh
            Height = 224
          end
        end
      end
    end
  end
  inherited Panel2: TPanel
    inherited Splitter2: TSplitter
      Top = 416
    end
    inherited GroupBox2: TGroupBox
      Top = 421
      Height = 148
      Caption = ' '#1054#1087#1077#1088#1072#1094#1080#1080' '
      inherited DetailGrid: TDBGridEh
        Height = 131
        DataSource = dsc_Detail
        UseMultiTitle = True
        VTitleMargin = 5
        Columns = <
          item
            EditButtons = <>
            FieldName = 'PAY_NAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'NAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'SUMMA'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'GROUP_ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'REESTR'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'DOGOVOR_ID'
            Footers = <>
          end>
      end
    end
    inherited Panel3: TPanel
      Height = 416
      inherited dbgRefer: TDBGridEh
        Height = 416
        Columns = <
          item
            EditButtons = <>
            FieldName = 'RRECIEPT'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RSUMMA'
            Footers = <>
            Width = 67
          end
          item
            EditButtons = <>
            FieldName = 'RDATE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RABON_ID'
            Footers = <>
            Visible = False
          end
          item
            EditButtons = <>
            FieldName = 'RTOWN'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RSTREET_NAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RHOUSE'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RCORPS'
            Footers = <>
            Width = 34
          end
          item
            EditButtons = <>
            FieldName = 'RAPPARTS'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RLETTER'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RNAME'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RCASHIER'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RZKX'
            Footers = <>
          end
          item
            EditButtons = <>
            FieldName = 'RNLS'
            Footers = <>
          end>
      end
    end
  end
  inherited dsRefer: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RRECIEPT,'
      '    RSUMMA,'
      '    RABON_ID,'
      '    RNLS,'
      '    RTOWN,'
      '    RSTREET_NAME,'
      '    RHOUSE,'
      '    RAPPARTS,'
      '    RNAME,'
      '    RZKX,'
      '    RDATE,'
      '    RCASHIER,'
      '    RCORPS,'
      '    RLETTER'
      'FROM'
      '    PROC_V_RECIEPTS(:PRECIEPT,'
      '    :PBDATE,'
      '    :PEDATE,'
      '    :PNSL,'
      '    :PTOWN_ID,'
      '    :PSTREET_ID,'
      '    :PHOUSE,'
      '    :PAPPARTS,'
      '    :PCLIENT_ID,'
      '    :PZKX_ID,'
      '    :PABONENT_ID,'
      '    :PORG_ID,'
      '    :PUSER_ID) ')
    Database = MAINDM.pMainDatabase
    object dsReferRRECIEPT: TFIBStringField
      DisplayLabel = #8470' '#1095#1077#1082#1072
      FieldName = 'RRECIEPT'
      Size = 16
      EmptyStrToNull = True
    end
    object dsReferRSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072' '#1095#1077#1082#1072
      FieldName = 'RSUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsReferRDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1087#1083#1072#1090#1077#1078#1072
      FieldName = 'RDATE'
    end
    object dsReferRABON_ID: TFIBIntegerField
      DisplayLabel = #1048#1044' '#1072#1073#1086#1085#1077#1085#1090#1072
      FieldName = 'RABON_ID'
    end
    object dsReferRNLS: TFIBStringField
      DisplayLabel = #8470' '#1083#1080#1094'. '#1089#1095#1077#1090#1072
      FieldName = 'RNLS'
      Size = 16
      EmptyStrToNull = True
    end
    object dsReferRTOWN: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1053#1072#1089'. '#1087#1091#1085#1082#1090
      DisplayWidth = 10
      FieldName = 'RTOWN'
      EmptyStrToNull = True
    end
    object dsReferRSTREET_NAME: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1059#1083#1080#1094#1072
      DisplayWidth = 20
      FieldName = 'RSTREET_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferRHOUSE: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#8470' '#1076#1086#1084#1072
      FieldName = 'RHOUSE'
      Size = 16
      EmptyStrToNull = True
    end
    object dsReferRCORPS: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1082#1086#1088#1087'.'
      FieldName = 'RCORPS'
      Size = 3
      EmptyStrToNull = True
    end
    object dsReferRAPPARTS: TFIBIntegerField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1082#1074'.'
      FieldName = 'RAPPARTS'
    end
    object dsReferRLETTER: TFIBStringField
      DisplayLabel = #1040#1076#1088#1077#1089'|'#1083#1080#1090'.'
      DisplayWidth = 3
      FieldName = 'RLETTER'
      Size = 3
      EmptyStrToNull = True
    end
    object dsReferRNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054
      DisplayWidth = 25
      FieldName = 'RNAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferRZKX: TFIBStringField
      DisplayLabel = #1059#1095#1072#1089#1090#1086#1082
      DisplayWidth = 20
      FieldName = 'RZKX'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferRCASHIER: TFIBStringField
      DisplayLabel = #1050#1072#1089#1089#1080#1088
      DisplayWidth = 25
      FieldName = 'RCASHIER'
      Size = 120
      EmptyStrToNull = True
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'rstReciepts'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'Panel2.GroupBox2.<P>.Height'
      'Panel2.GroupBox2.DetailGrid.<P>.Columns.ColumnsIndex'
      'Panel2.GroupBox2.DetailGrid.<P>.Columns.<ForAllItems>.Width'
      'Panel2.Panel3.dbgRefer.<P>.Columns.ColumnsIndex'
      'Panel2.Panel3.dbgRefer.<P>.Columns.<ForAllItems>.Width')
  end
  object ds_Detail: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select p.id, pt.pay_name, p.dogovor_id, r.summa, p.group_id, p.r' +
        'eestr,'
      '       s.name'
      '  from reciepts r'
      '  join pays p on p.id = r.payment_id'
      '  join services s on s.id = p.group_id'
      '  join pay_types pt on pt.code = p.p_type'
      '  where r.reciept = :rreciept'
      'order by s.name, pt.pay_name')
    AfterCancel = dsReferAfterRefresh
    AfterEdit = dsReferAfterEdit
    AfterInsert = dsReferAfterInsert
    AfterOpen = dsReferAfterRefresh
    AfterRefresh = dsReferAfterRefresh
    Transaction = trRefer
    Database = MAINDM.pMainDatabase
    AfterFetchRecord = dsReferAfterFetchRecord
    DataSource = dscRefer
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 60
    Top = 520
    WaitEndMasterScroll = True
    dcForceOpen = True
    oRefreshAfterDelete = True
    oRefreshDeletedRecord = True
    object ds_DetailID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object ds_DetailPAY_NAME: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1087#1083#1072#1090#1077#1078#1072
      DisplayWidth = 20
      FieldName = 'PAY_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_DetailNAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_DetailDOGOVOR_ID: TFIBIntegerField
      DisplayLabel = #1048#1044' '#1076#1086#1075#1086#1074#1086#1088#1072
      FieldName = 'DOGOVOR_ID'
    end
    object ds_DetailSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'SUMMA'
      Size = 2
      RoundByScale = True
    end
    object ds_DetailGROUP_ID: TFIBIntegerField
      FieldName = 'GROUP_ID'
    end
    object ds_DetailREESTR: TFIBIntegerField
      DisplayLabel = #1056#1077#1077#1089#1090#1088
      FieldName = 'REESTR'
    end
  end
  object dsc_Detail: TDataSource
    DataSet = ds_Detail
    Left = 96
    Top = 520
  end
end
